﻿Imports extremo

Public Class RDeporte


    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.Close()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGuardar.Click

        Dim x = Me.txtnombre.Text
        Dim y = Me.txtubicacion.Text
        Dim z = Me.txtdescripcion.Text
        Dim a = Me.txtcosto.Text
        Dim b = Me.txtinstructor.Text
        Dim c = Me.dtpfecha_evento.Value
        Dim n = New DeporteNegocio()
        Dim paquete = n.insertar(x, y, z, a, b, c)

        MsgBox("Deporte registrado!!!!")

        'Limpiar cajitas de texto desues de ingresar datos
        txtnombre.Clear()
        txtubicacion.Clear()
        txtdescripcion.Clear()
        txtcosto.Clear()
        txtinstructor.Clear()
    End Sub

    
End Class